﻿Imports System.Runtime.CompilerServices

''' <summary>
''' Extension methods
''' </summary>
''' <remarks></remarks>
''' <editHistory></editHistory>
Module Extensions

    ''' <summary>
    ''' Displays error information for an exception caught in the UI
    ''' </summary>
    ''' <param name="ex"></param>
    ''' <remarks></remarks>
    <Extension()> _
    Public Sub Handle(ByVal ex As Exception)

        'TODO: Come up with something a bit more inspired than this.
        Dim dialog As New ExceptionDialog(ex)

        dialog.ShowDialog()
    End Sub

End Module
